db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")
US <- dbGetQuery(db, "SELECT * FROM JHUDATA
WHERE country ='US'")
US$date <- as.Date(US$date)
US <- US%>% mutate(daily_deaths = deaths - lag(deaths))
US <- US%>% mutate(daily_cases = confirmed - lag(confirmed))
US <- US%>% mutate(daily_recovery = recovered - lag(recovered))
US Recoveries by Date (Daily and Accumliated)
plot1 <- US %>% ggplot() + geom_line(aes(x=date,y=recovered),lwd=1) +
labs(title="US Accumliated Recoveries to Date",
capton="(Source: https://coronavirus.jhu.edu/map.html")
ggplotly(plot1)
plot2 <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery),lwd=1) +
labs(title="US Daily Recoveries by Date",
caption="(https://coronavirus.jhu.edu/map.html)")
ggplotly(plot2)
US Recoveries by Date (Daily and Accumliated)
US %>% ggplot() + geom_col(aes(x=date,y=recovered)) +
labs(title="US Accumliated Recoveries to Date",
y="Log of Recoveries",
caption="(https://coronavirus.jhu.edu/map.html)") +
scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 18 rows containing missing values (geom_col).

US %>% ggplot() + geom_col(aes(x=date,y=daily_recovery)) +
labs(title="US Daily Recoveries by Date",
y="Log of Recoveries",
caption="(https://coronavirus.jhu.edu/map.html)") +
scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 rows containing missing values (position_stack).
## Warning: Removed 49 rows containing missing values (geom_col).

Comparing Daily Cases to Recoveries
US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) +
labs(title="US Daily Cases and Recoveries by Date",
caption="(Source: https://coronavirus.jhu.edu/map.html)",
y="Daily Cases and Recoveries",subtitle="Apr. 25, 2020") +
geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
easy_remove_x_axis()
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Removed 1 row(s) containing missing values (geom_path).

US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) +
labs(title="US Daily Cases and Recoveries by Date",
caption="(Source: https://coronavirus.jhu.edu/map.html)",
y="Daily Cases and Recoveries",subtitle="Apr. 25,2020") +
geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Removed 1 row(s) containing missing values (geom_path).

aa <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) +
labs(title="US Daily Cases and Recoveries by Date" ,
y="Daily Cases and Recoveries",subtitle="Apr. 25, 2020") +
geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
easy_remove_x_axis()
ab <- US %>% ggplot() + geom_line(aes(x=date,y=daily_recovery,col="Recoveries"),lwd=1) +
labs(title="US Daily Cases and Recoveries by Date",
caption="(Source: https://coronavirus.jhu.edu/map.html)",
y="Daily Cases and Recoveries") +
geom_line(aes(x=date,y=daily_cases,col="Cases"),lwd=1) +
scale_y_log10()
aa /ab
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Removed 1 row(s) containing missing values (geom_path).

Deaths Flatting the Curve
US %>% ggplot() + geom_line(aes(x=date,y=deaths),lwd=1) +
labs(title="US Accumliated Deaths to Date",
y="Log of Deaths",
caption="(https://coronavirus.jhu.edu/map.html)") +
scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis

US %>% ggplot() + geom_line(aes(x=date,y=daily_deaths),lwd=1) +
labs(title="US Daily Deaths by Date",
y="Log of Deaths",
caption="(https://coronavirus.jhu.edu/map.html)") +
scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 row(s) containing missing values (geom_path).
